— 
— Fe 
pi a be 


I 
I 
I 


Gt bat bens feet Bs Be Peg Ds bt bn Ba Bn Gs bs Be Pn Be a GB 


st bs bt Os be bs be Os ae es be be be he bas a eh 
bs bt be be be ne bs bs bn bt be he be be Be be be Bs hs 


Ot ne Oe 
ob 
2 be 


Bene Ret bene 
bas be 
a me 


000000000 
000000000 
000000000 
000 000 
000 000 
000 000 
009 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000 000 
000000000 
000000000 
000000000 


UUU UUU 
UUU UUU 
UUU UUU 
YUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 

UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUUUUUUUUUUUUUU 
UUUUUUUUUUUUUUU 


UUUUUUUUUUUUUUU 


PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPP PP 


P 

PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


XFS 


B 10 


**F ILE**1D**LASWEEP 


aaaa 

aaaa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aaqaaaaaaaaaaaad 
agaaaqagagagagaaagaaaadad 
dus uu 
wus woud 
sus wus wus 
sus usu wus 
usu usu wus 
(verve) wu wud 
sus wu wus 


Us a a a Gs a as a a 
a a sd sd ds 


ww ka ls 
wus kat hat 
wu ww ww 
ww ww ww 
[vuTry) uw uw 
ww ww wu 
ww wu rveTvY) 
wu uw ww 


WW a a a a 
A 


33333333333333 
33 


333333333333 
23 
33 
336, 

2 2 33 2 
33333333333333 
nn MNMNM 
nn NNN 
nw nn nn 
nw nw nn 
nn nn nn 
nn nw nn 
nn nn nn 
mown nn nn 

ANN nn 
ANNM nn 


LLLLLLLLLL 
LLLLLLLLLL 


“wn MuMuMn 
nn Mnnnm 
“own nn nn 
nw nw “nn 
nw “ww nn 
“own “nn “nw 
“nn ww nn 
mn nn nn 
MMWMnM nn 
Munn nn 
—— eugene 
“ee omene 


LLELLLLLLLL 
LLLLLLLLLL 


PASSMEEP 
($) 
(5) 
(6) 1 
2? 4 
8b 
+ i $7 
(10) 875 
(10) 876 
(11) 942 
18} 1051 
(13) 1148 


A 

ES 
SWE 
LOC 
LOC 
ASK 
H 


wv 
Pd 
ad 
oO 
mo 
oO 
o 
ral 
seeoee 
oor 


I 
N 
C 
C 
M 
C 


C 10 


16-SEP-1984 01:44:18 VAX/VMS Macro v04-00 


IZE IBUF ARRAY 


ANNEL PARAMETERS 


TADC 
LPASCVADE = CONVERT A/D TO FLOATING 


LPASFLT16 = CONVERT UNSIGNED 


POINT 
WORD TO FLOATING POINT 


LPASXRATE = COMPUTE CLOCK RATE AND PRESET 


LPASLOADMC = LOAD MICROCODE 


LPASSASSIGN = ASSIGN A CHANNEL TO AN LPA-11 
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LPASSWEEP 16-SEP=1 1: AX/VMS Macro v04-00 Pa 1 | LPA 
ih tts moet ra eT oeS MTC Ta Te Toe TORE aD! vo4 
TITLE LPASSWEEP 
IDENT "vOe=000" 


PARRA ARRRRRRARAAAARLALARALELALASALALE SAAR EASES ERASE SEER EERE RRR S ESR RSE EERE ES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corres 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tint AND eet H_THE 


NCLUS T 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eepoket ite. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


OOOOCCOCOCOOCOOCOOOOOOOCOOOOoOO 
SOoCCOCOCOCOOCOCOOOOOOOSCOOOoOOoOoOoOO 
SOOO OCoooCoooooooooooooooooo 


SOOOCCOCOCOCOCOOSOCOCOSOOS OOOO SOOCCSOOOCOCOCCOOOCOOCOOOOOOOOOCOOOOOOO 


; 
° 
° 
° 
° 
° 
° 
° 
° 
4 
. 
° 
° 
e 
° 
° 
° 
° 
° 
° 
e 
; LARRBSAASALARAALASAAAASALERSEAREEE SER EASES ERR EERE SERS ASRS ASR EASES EASELS RES DY 
; 


; ABSTRACT: 

; THIS MODULE CONTAINS THE START SWEEP ROUTINES FOR THE LPA~11 
PROCEDURE LIBRARY. 

; ENVIRONMENT: USER MODE, SHARED OR NON-SHARED LIBRARY 

; AUTHOR: STEVE BECKHARDT, CREATION DATE: 23-AUG-78 


| 
| 
} 
| 
p++ 
3 FACILITY: LPA-11 PROCEDURE LIBRARY 
: 
: | 
: | 
; | 
g 
; | 
: MODIFIED BY: | 
; 
e | 
Py | 
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v03-001 SBL3001 Steven B. Lionel 30-Mar-1982 
Change module name to LPASSWEEP. 
v04 $RB0001 STEVE BECKHARDT 23-OCT-1979 
FIXED BUG IN HANDLING OF BUFFER OVERRUN NON-FATAL: 
INITIALIZED BUFFER 0 RELEASED FLAG TO 1 IN ROUTINE 
SWPCOM iF BUFFER OVERRUN IS NON-FATAL. AS A RESULT, 
i BUFFER 0 SHOULD NOT BE RELEASED THE FIRST TIME. 
000 tated 


DECLARATIONS “SEP=1984 01:32:2 IOSUP.SRCJLASWEEP.MAR; 1 
«-SBTTL DECLARATIONS 
INCLUDE FILES: 


OOOOOCooo 


: MACROS: 


: EQUATED SYMBOLS: 


+ OWN STORAGE: 


-PSECT _LPASCODE,PIC,SHR,EXE ,NOWRT BYTE 
; PREFIX STRING USED IN ASSIGNING CHANNEL 


DNPREF IX: sASCII /LPA11$/ 
DNPREF IXS=.-DNPREF IX 


SN NN NA AA AAA AAA AMI 
MEW O OONA UNE WN OOODNOULS Ww 
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16-SEP-1984 01:44:18 VAX/VMS Macro V04-00 Page LP/ 
ety 7 §h:9335 IOSUP.SRCJLASWEEP.MAR; 1 . 3) v0 


a ee .SBTTL LPASSETIBF - INITIALIZE IBUF ARRAY 
6 19 ; FUNCTIONAL DESCRIPTION: 
6 1 THIS ROUTINE INITIALIZES THE IBUF ARRAY 
0 6 CALLING SEQUENCE: 
006 5: CALLS/G | 
006 6 Py | 
006 7 : INPUT PARAMETERS: 
$0 § : 1BUF (AP) ADDRESS OF IBUF ARRAY (MUST BE LONGWORD ALIGNED) 
0006 «46-490: gk IND (AP) ADDRESS OF LONGWORD TO RECEIVE COMPLETION STATUS | 
0006 «=—s«91 : LAMSKB(AP) ADDRESS OF LAMSKS AR 
0006 38 ; BUFOCAP) ADDRESS OF FIRST DATA BUFFER 
oo06 8a | 
babe 32 : BUFN(AP) ADDRESS OF LAST DATA BUFFER (UP TO 8 ARE ALLOWED) 
0006 97 : IMPLICIT INPUTS: | 
0006 «98: 
0006 «99: NONE | 
0006 100: 
9006 101 t OUTPUT PARAMETERS: | 
9006 108 : IND (AP) ; ADDRESS OF LONGWORD TO RECEIVE COMPLETION STATUS | 
0006 105 : IMPLICIT OUTPUTS: 
0006 106: 
0006 107: NONE 
0006 108: 
0006 109 : COMPLETION CODES: 
0006 110: 
0006 111: 1 INDICATES IBUF WAS SUCCESSFULLY INITIALIZED 
0006 18 : 0 INDICATES AN ARGUMENT ERROR - POSSIBLE CAUSES 
0006 (113: 1) INCORRECT NUMBER OF ARGUMENTS 
0006 114: @) IBUF ARRAY NOT LONGWORD ALIGNED 
Bebe 112 ; ) BUFFER ADDRESSES NOT EQUIDISTANT | 
0006 117 : SIDE EFFECTS: 
0006 118: 
06 119: NONE 
4 159 Py | 
0 121 j-- 
0006 1 ‘ 
007¢ 9006 ; .ENTRY LPASSETIBF,“M<R2,R3,R4,R5,R6> 
524 008 125 CLRL = R2 ; RETURN STATUS | 
56 O04 AC OD OA 126 MOVL 4(AP) .R6 : GET ADDRESS OF IBUF ARRAY 
56 03 D3 OO00E 127 BITL #3,R6 : 1S IBUF LONGWORD ALIGNED? 
6F 12 0011 128 BNEQ 60 tN OR 
66 OOA8 BF 00 66 00 C 0013 129 MOVCS #0, (R6),#0,#IBFSK LENGTH, (R6) ERO IBUF 
54 OC AC DE 18 9 MOVAL 12¢AP),R4 © POINT io” LAMSKB ARG 
6¢ 7 é PROCESS LAMSKB ARG 
10 A6) «684 SCOOTF Cs RovL (R4)+, IBFSL_LAMSKB(R6) ; STORE IN IBUF 
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LPASSWEEP 16-SEP=1984 01:44:18 VAX/VMS Macro V04-00 Page 4 LPs 
iat tt LPASSETIBF = INITIALIZE IBUF ARRAY g-SeF- 19 382 bhi%3 2:23 CIOSUP.SRCILASWEEP.MAR; 1 ° (3) | v4 
134 | 
; 135 : PROCESS $ BUFFER ADDRESSES 
5 6C «OA 1 : MOVZBL (AP),R : GET NUMBER OF ARGS 
4 Ce 6 1 SUBL ae ; ACCOUNT FOR FIRST ARGUMENTS 
0 3 OD 1 : CMPL «=soaR3# ; RS = # OF BUFFERS = 1 
4 1A 0 ae BGTRU 60$ INCORRECT # OF ARGS 
3 Ab 64 D : 140 MOVL (RG), IBFSL_CMDTBL+CMTSL_BFRADDR(R6); STORE FIRST BUFFER ADDR. 
A6 653) 90 s«00 141 MOVE R3,1BFSL_CADTBL+CMTSB_ VBFRMASK(R6) "; STORE # IN COMMAND TABLE 
m9 0 6 148 BEQL 50§ ONLY 1 aur ies ADDRESS SPECIFIED 
14606 66 84 (C3 00 14 SUBL3 (R4)+,(R4), IBF SL_LBUF (R6S ; COMPUTE AND STORE BUFFER LENGTH 
0A 11 00 b 146 BRB 40$ | 
50 660 OGG 6 F 146 30$:  SUBL3 (R4)+,(R4),RO : COMPUTE NEXT LENGTH | 
16 A6 50 D1 0043 14 CMPL RO, IBF $L_LBUF (R6) ; MAKE SURE IT AGREES 
9 le 0047 148 BNEG 608 ; Tt DOESN'T = ERROR 
F353 O#F 0049 149 40$:  SOBGTR R3,30$ + DO NEXT ONE 
004C 151 50S: ; INITIALIZE ARGUMENT INDEPENDENT agree FIRST INIT. QUEUES 
50 A6 4650 AB «ODE «O(004C 138 MOVAL  IBFS$L_USROFL(R6), IBF S$L_USRQFL(R6) ; USER QUEUE | 
54 A6 «6050 ABODE 0051 133 MOVAL IBF SL ~USROFL (RED, IBF $L~USROBL (R6) 
58 AG «60SB AG OCDE «CO00S6~—s«a155 MOVAL  IBFSL_DEVQFL(R6), IBFSL_DEVQFL(R6) : DEVICE QUEUE 
5c A6 «058 AG ODE 0058 136 MOVAL  IBFSL-DEVQFL(R6) . IBF $L~DEVQBL(R6) 
60 A6 60 A6 DE 0060 158 MOVAL  IBFS$L_INUQFL(R6), IBF $L_INUQFL (R6) : IN USE QUEUE 
64 A6 60 AB ODE 0065 139 MOVAL IBFSL~ INUQFL (RE), IBF $L~ INUQBL (R6) 
24 A6 «48 AG 3E 006A 161 MOVAW IBF SW_USW(R6),IBFSL_CMDTBL+CMTSL_USWADDR(R6) =; USW ADDRESS | 
38 A6 00010001 01000001 8F 7D O06F 188 MOVQ = #*X1000101000001, IBF SL_CMDTBL+CMT$W_DELAY(R6); DEFAULT SAMPLING 
0078 164 + NUMBERS | 
66 1234 8F BO 0078 166 MOVW #INITCODE,1BF$Q_10ST(R6) : SHOW THAT SETIBF WAS CALLED | 
52. 6 9080 168 INCL ——R2 : INDICATE SUCCESS | 
51 08 AC DO 0082 170 60$:  # MOVL  8(AP),RI ; GET ADDRESS OF IND 
03 13 0086 171 BEQL 70% : DEFAULTED 
61 52 dd 0088 1% MOVL  R2,(R1) + RETURN STATUS 
04 0088 173 70$: RET 


LPASSWEEP 16-SEP-1984 01:44:1 AX/VMS Macro Vv04-00 Page 5 LP, 
rivet START SWEEP ROUTINES ae es 1 Bri a3i38 LOsuP sre LASWEEP.MAR; 1 ” a vO: 
¢ , = ~SBTTL START SWEEP ROUTINES 
, FUNCTIONAL DESCRIPTION: 
7 THESE ROUTINES ARE THE START SWEEP ROUTINES. THERE ARE 
FOUR TYPES OF SWEEPS: A/D, D/A, DIGITAL IN, AND DIGITAL OUT. 
CALLING SEQUENCE: 
CALLS/G 
8 INPUT PARAMETERS: 
8 IBUF (AP) ADDRESS OF ARRAY INITIALIZED BY SETIBF 
8 LBUF (AP) ADDRESS OF WORD CONTAINING THE SIZE OF EACH DATA BUFFER 
9 NBUF (AP) ADDRESS OF LONGWORD CONTAINING NUMBER OF BUFFERS TO FILL 
9 MODE (AP) ADDRESS OF A WORD WHICH SPECIFIES SAMPLING OPTIONS 
9 BIT SERIAL/PARALLEL (DUAL A/D) 
BIT 6 DEDICATED/MULTIREQUEST MODE 
BIT 9. CLOCK OVERFLOW/EXTERNAL TRIGGER 
BIT 10 TIME STAMPING 
BIT 11 EVENT MARKING 
BIT 1 IMMEDIATE START/DIGITAL INPUT START 
BIT 13 SINGLE/DUAL A/D 
BIT 14 BUFFER OVER/UNDERRUN FATAL/NON-FATAL 
DWELL (AP) ADDRESS OF WORD CONTAINING DWELL VALUE 
1EFN(AP) VALUE OF EVENT FLAG OR IF GREATER THAN 128 ADDRESS OF 
COMPLETION ROUTINE 
LDELAY (AP) ADDRESS OF A WORD CONTAINING DELAY VALUE 
ICHN(AP) ADDRESS OF A BYTE CONTAINING START CHANNEL VALUE | 
NCHN(AP) ADDRESS OF A WORD CONTAINING NUMBER OF SAMPLES VALUE 
IND (AP) ADDRESS OF A LONGWORD TO RECEIVE STATUS 


IMPLICIT INPUTS: 
VARIOUS FIELDS IN THE IBUF ARRAY 
OUTPUT PARAMETERS: 
IND (AP) ADDRESS OF A LONGWORD TO RECEIVE STATUS 
IMPLICIT OUTPUTS: 
VARIOUS FIELDS IN THE IBUF ARRAY 
COMPLETION CODES: 


1 INDICATES SUCCESS 
0 INDICATES ERROR DETECTED BY THIS ROUTINE - POSSIBILITIES: 
1) SETIBF WAS NOT CALLED FIRST 
$} RLSBUF HAS NOT BEEN CALLED TO RELEASE A BUFFER 
) SIZE OF DATA BUFFERS DISAGREES WITH SIZE 
COMPUTED FROM SETIBF CALL. 
VARIOUS VMS CODES RETURNED BY SASSIGN AND $Q10 
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vee ti START SWEEP ROUTINES SEP=1 198 8} 93:3 1OSUP. SRC LASWEEP.MAR: 1 — (2) 
C 3 
° c ; VARIOUS FIELDS IN THE IBUF ARRAY ARE MODIFIED 
c i=. 
OOF C ENTRY LPASADSUP, “M<R2,R3,R4, RS .R6,R7> : START A/D SWEEP 
55 02 50 0 A MOVL RS MODE WORD 
1 11 09 BRB SUbCOM 
09 
OOFC 3 ENTRY LPASDASUP, AM<R2,R3,R4,R5,R6,R7> : START D/A SWEEP 
55 0082 8 3¢ 09 MOVZWL #*X82,R5 : MODE WORD 
E 11 OO9A B SuPCOR 
0096 
OOFC 009C ENTRY LPASDISUP, “M<R2,R3,R4,R5,R6,R7> ; START DIG. INPUT SWEEP 
55 1A «00. O09E MOVL X1A,R5 : MODE WORD 
07 11 + OOAI BRB suPcon 
ss 
OOFC 00A3 LENTRY LPASDOSWP,*M<R2,R3,R4,R5,R6,R7> : START DIG. OUT SWEEP 
55 009A BF 3C OOAS MOVZWL #*X9A,R5 
OOAA 
00 
OOAA 
OOAA 


SWPCOM: hovar Gaps eRPE FOR ALL SWEEP oy ft i tS R5 yt 7 aa WORD. 
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090909090909 09 0D G0 NNN DS DS DD DDD DS TT TT BB BB EE PN 
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57 04 AC bE OOAA ; POINT TO FIRST ARGUM 
53 6C 02 83 OOAE SUBB3 #2, (AP) ,R3 : R3 CONTAINS # OF OPTIONAL ARGS 
50 04 0082 CLRL = RO ; ASSUME ERROR 
56 87 DO 00B4 MOVL  (R7)+,R6 ; ADDRESS OF BUF ARRA 
1234 BF 66 81 00B7 CMPW IBFS$Q_IOST(R6) ,MINITCODE. ; VER IFY Y SETIer WAS CALLED 
18 12 OOBC BNEQ : IT WAS 
66 7C O0BE CLRQ IBF$Q_IOST(R6) > CLEAR USER S i STATUS BLOCK 
00C0 VERIFY THAT A BUFFER HAS BEEN REL EASED AND SET IN USW 
1140 a6 00. 1 90¢0 §BC #FLG_V_USWSET, IBF $W_FLAGS(R6),15$ ; BR. IF USW IS NOT SET 
00c5 : PROCESS LBUF 
51 97 3c 00¢5 MOVZWL  a(R7)+,R1 ; GET LBUF 
51 02 C4 00C8 MULL #2,R : MULTIP LY BY 2 TO CONV. WORDS. TO BYTES 
52° 14 Ab 09 00¢B MOVL 1BESL_LBUF (RO) .R2 : GET LBUF gfALCULATED IN SETIBF 
98 1 OOct BEQL 0$ ; THERE ISN'T ONE 
52. 51 01 00D1 CMPL = R1,R2 t COMPARE TH 
03 «13 D4 BEQL 208 + EQUAL = NO ERROR 
0160 31 O06 15$:  BRW 115$ : ERROR 
14 a6 51~—0 9009 20$:  MOVL BF$L_LBUF (R6) STORE LENGTH OF EACH BUFFER 
52. 22 AG 9A Dp movzBL I Fat L._CMOTBL+CMT$SB_ VBFRMASK (R6) .R : GET # OF BUFFERS-1 
28 AB OS 35 C OE MULL3 RS R1,1BFSL_CMDTBL+CMTS$L_BFRLEN(R6) ; STORE OVERALL BFR LENGTH 
E : PROCESS NBUF 
53 97 O0E beCcBCOiRR : DECR. ARG COUNT 
OF 19 OOEA BLSS 308 : ARG OMITTED 
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51 87 D EC 89 MOVL (R7)+,R1 ; GET ADDRESS OF NBUF 
A 1 EF 0 BEQL 0$ + DEFAULTED (CONTINUOUS SAMPLING) 
18 AB «661.—COD Fl 291 MOVL (R1) , IBF SL_NBUF (R6) + STORE NBUF | 
ois FS 36 BEQL 0$ : ZERO ALSO MEANS CONTINUOUS SAMPLING 
40 A6 «004)COA t? 93 BISW #FLG_M_CNTBFRS,IBFS$W_FLAGS(R6) ; SET COUNT BUFFERS FLAG 
FB 295 30S: : PROCESS MODE 
53 97 O0FB %6 bECB CR : DECR. ARG COUNT 
ac 19 OOFD 29 BLSS 50$ : ARG. OMITTED 
51 8 09 OFF 298 MOVL  (R7)+,R1 : GET ADDRESS OF MODE 
aly 102 299 BEQL 50S : DEFAULTED 
51 6130 4 00 MOVZWL (R1),R1 : GET MODE 
} 
107 30 ; SET BITS IN MODE WORD (IN R5) DEPENDING ON BITS IN MODE ARG (IN R1) | 
0451 05 €1 0107 08 BC #5,R1 328 ; BRANCH IF SERIAL 
00 33 0B «CE2 108 4 Bass e_—so# 11,5. 328 + SET FOR PARALLEL 
04 53 06 £1 O10F 305 32$: BBC 46.81, 348 : BRANCH IF DEDICATED MODE | 
0055 03 €2 0113 06 BBSSso# -R9,368 + SET FOR MULTIREQUEST MODE 
0451 09 +€1 #0117 307 348: BBC #9-R1 $$ : BRANCH IF CLOCK OVERFLOW TRIGGER 
0055 OA €2 0118 308 BBSS —_s«# 10, R5, 36 : SET FOR EXTERNAL TRIGGER | 
0451 OA €1 O11F 309 36%: BBC #10,R1 388 + BRANCH IF NO TIME STAMPING 
0055 OF €2 0123 310 BBSS #15.R5.38$ : SET FOR TIME ST 
06 51 OB €1 O127 311 38%: BBC #11.R1.40$ t BRANCH IF NO EVENT MARKING 
0055 OF £2 0128 le BBSS #14.R5.40$ : SET FOR EVENT MA 
0651 OC €1 lef 13 40$: BBC #1 RL aes > BRANCH IF IMMEDIATE START 
0055 OC £2 0133 314 BBSS #12.R5.42$ : SET FOR DIGITAL INPUT 
0451 OD €1 0137 315 428: BBC #13.R1.44$ : BRANCH IF SINGLE A/D CONVERTER 
0055 05 €E2 0138 316 BBSS #5,R5,44$ + SET FOR DUAL A/D CONVERTER 
08 51 OF €1 O13F 317 448: BBC #ié,Rri,50s : BRANCH IF OVER/UNDERRUN IS FATAL 
4C AB 10 AB 0143 318 BISwW HAN M_BFRORLSD,IBFS$W_FLAGS(R6) ; SET BUFFER O RELEASED FLAG 
0055 17 €2 O147 19 BBSS #23,R5750$ ; SET FOR OVER/UNDERRUN NON-FATAL 
0148 ¢1 50S: ; MODE WORD NOW COMPLETE EXCEPT FOR CHANNEL SELECTION BITS (BITS 8-9) 
20 a6 «655—COCB 0148 32 BISL 5, IBFSL_CMDTBL+CMT$W_MODE(R6) ; OR INTO MODE WORD IN CMD TBL 
Shee 3h ; PROCESS DWELL 
53 97 «(O14F 5 DECB ORB. : DECR. ARG COUNT 
09 #19 0151 326 BLSS 60% + ARG OMITTED 
51 87 09 013 27 MOVL (R7)+,R1 t ADDRESS OF DWELL VALUE 
04 1 136 4 BEQL : DEFAULTED 
3E A6 «= 61—s«BD 0198 3 MOVW  (R1),1BFSL_CMDTBL+CMT$W_DWELL (R6) : STORE DWELL | 
15¢ 1 60$: : PROCESS IEFN (EVENT FLAG OR COMPLETION ROUTINE ADDRESS) | 
54 0000"8F 36 15¢ : MOVZWL #IO$_STARTDATA!IOSM_SETEVF,R4 ; 1/0 FUNCTION CODE 
3 161 DECB.CéiR ; BECR. ARG COUNT | 
17 19 +0163 4 BLSS 65% > ARG OMITTED 
50 87 00 165 5 MOVL = (R7)+#,RO : GET EVENT FLAG # OR ADDRESS OF ROUTINE 
12 13 0168 6 BEQL : EITHER DEFAULTED OR EVENT FLAG ZERO | 
00000080 8F 50 01 16A CMPL RO, #128 : EVENT FLAG OR AST ADDRESS? | 
C IF 0171 8 BLSSU 708 ; EVENT FLAG 
54  0000"BF AA 173 9 BICW  #IOSM_SETEVF,R4 : DON'T SET EVENT FLAG ON BUFFER FULLS 
10 A650 =—00 178 40 MOVL RO, IBFSL_COMPLADDR(R6) ; SAVE COMPLETION ROUTINE ADDRESS 
17¢ 4g 65$: : USE DEFAULT EVENT FLAG | 
50 16 9A 7c 43 MOVZBL #DEFEVFLG,RO 
17F 345 708: ; SAVE EVENT FLAG NUMBER IN RO 


K 10 
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4E AG «65090 Ve 4 MOVB = RO, IBF $B_LEFN(R6) 
1 4 » PROCESS DELAY 
53. 97) «O01 8 beCB CRB : DECR. ARG COUNT 
9 19 01 50 BLSS 80% + ARG OMITT 
50 87 09 187 351 MOVL = (R7)+#,RO t ADDRESS OF DELAY VALUE 
4 13 O1BA 36 BEQL * DEFAULTED 
38 a6) «6 60—S—s«#BD i MOVW (RO), IBFSL_CMDTBL+CMT$W_DELAY(R6) : STORE IN COMMAND TABLE 
19 5 80S: » DON'T PROCESS ICHN AND NCHN IF SETADC WAS CALLED 
1A 40 AGB 03——O«EO 19 36 BS #FLG_V_SETADC, IBFSW_FLAGS(R6) ,90$ ; BR. IF IT WAS CALLED 
19 38 : PROCESS ICHN 
53 (97 198 5 bECB CR ; DECR. ARG COUNT 
09 19 019 60 BLSS 85% + ARG OMITTED 
50 87 09 199 361 MOVL  (R7)+#,RO : GET ADDRESS OF ICHN VALUE 
04 13 019¢ 6¢ BEQL 85$ * DEFAULTED 
3A a6 «=6060—s—«*#90 gi9 63 MOVB (RO), IBFSL_CMDTBL+CMT$B_ICHN(R6) : STORE ICHN 
O1A 65 85S: : PROCESS NCHN 
53 97 OIA 66 bDECB CR ; DECR. ARG COUNT 
09 #19 O1W6 36 BLSS 90% t ARG OMITTED 
50 87 v9 01A6 «368 MOVL = (R7)+, RO + GET ADDRESS OF NCHN VALUE 
04 13 O1A9 369 BEQL 90% + DEFAULTE 
3c A6 «6 60—s«iBO 148 20 MOVW (RO), IBFSL_CMDTBL+CMT$W_NCHN(R6) : STORE NCHN 
O1AF re 90S: ; SET CHANNEL SELECTION BITS IN MODE WORD 
50 34 Ab 00 O1AF 86-37 MOVL IBF SL_CHDTBL+CMTSL_RCLADDR(R6) ,RO : RCL ADDRESS SUPPLIED? 
= 0183 if BEQL 4$ ; NO 
tte 018) 2 i, Have RCL ADDRESS. NOTE CHANNEL BITS ARE ALREADY ZERO. FIND RCL LENGTH 
51 02 CO 0187 378 92%: ADDL #2,R1 : ADD 2 TO LENGTH 
80 85 O1BA 379 TSTw = (RO) + : AT END OF RCL? 
F9 «18 #01BC 380 BGEQ 92% : NOT YET 
30 A6 «6551S sO1BE-—-381 MOVL  R1,I1BFSL_CMDTBL+CMTSL_RCLLEN(R6)  ; STORE RCL LENGTH 
10 (11 ice Be BRB 106$ 
3c a6 «O01séiw@sd 1c 84 94$: CMPW #1, I1BFSL_CMDTBL+CMTSW_NCHN(R6) ; IS NCHN = 12? 
06 13 O1C8 385 Bea. 46s«95$ : YES, SET SINGLE CHANNEL BIT 
21 Ab 02 88 ICA 86 B18 #2 1BF SL_CMDTBL +CMTSW_MODE+1(R6) ; NO, SET SEQUENTIAL CHANNEL BIT 
21 06 «01—sBB 0100 ep 95$:  BISB #1, IBFSL_CMDTBL+CMTSW_MODE+1(R6); SET SINGLE CHANNEL BIT 
53 D4 «60104 0 100$: CLRL  R3 ; NUMBER TO APPEND TO LOGICAL NAME 
106-391 : USED TO ASSIGN CHANNEL TO 
50 1C Ab 09 1D6 38 MOVL JBESL_LAMSKB(R6) ,RO : GET ADDRESS OF LAMASK BUFFER 
08 1 1DA 39 BEQL 10$ : THERE IS NONE 
40 a6 60 = 7D 1p¢ 94 MOVG (RO), 1BFSL_CMDTBL+CMT$B_STWRDN(R6) ; MOVE CONTENTS 
53 06A0 3C OIE 95 MOVZWL 6(ROS,R3 ; GET NUMBER TO APPEND TO LOGICAL NAME 
1E4 36 : USED TO ASSIGN CHANNEL TO 
1£4 98 110$: ; ASSIGN CHANNEL 
52 4A AG 3 164 39 MOVAW IBF$W CHAN(R6),R2 : ADDRESS OF PLACE TO STORE CHANNEL # 
O2F4 168 400 BSBW LPASSASSIGN > ASSIGN CHANNEL 
48 50 €9 1EB 401 BLBC ~=—_-« RO, 115$ + ERROR 


L 10 
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1EE 403 NOW SET UP TO DO Q10 
9000000 EF 9E TEE 404 HOVAB - LPASSCMPLTAST.R2 : ADDRESS OF QI0 COMPLETE AST 
OOO0000'EF 9E O1F5 405 MOVAB LPASS RS + ADDRESS OF BUFFER A 
QOOOOOOO'EF SE OFC 4 6 MOVAB LPASSOVRAST R : ADDRESS OF OVER/UNDERRUN AST 
03 4 $Q10_S$ IBFS$B_EFN(R6) : EVENT FLAG 
0 4 8 IBF SW EMANCROS, - + CHANNEL 
4 R4,- + 1/0 FUNCTION CODE 
03 410 1Bf$0_10SB(R6), - : 1/0 STATUS BLOCK 
03 411 (R2),= : COMPLETION AST ADDRESS 
0 a R6,- + AST PARAMETER (ADDRESS OF IBUF ARRAY) 
03 41 IBF SL_CMDTBL(R6) ,- + ADDRESS OF COMMAND TABLE 
0 414 #40,-" : LENGTH OF COMMAND TABLE 
415 R3,- : NORMAL BUFFER AST ADDRESS 
0 416 R5 : OVER/UNDERRUN AST ADDRESS 
1050 +8 0 6 a? BLBS RO,115$ + SUCCESSFUL Q10 
9 419 ERROR IN Q10 
50 DD 9 420 USHL RO ; SAVE STATUS 
B 421 SDASSGN_S IBFS$W_CHAN(R6) |; DEASSIGN CHANNEL 
50 8EDO 0 36 4 : PL "RO : RESTORE STATUS 
0 9 426 115$: ALL ERRORS AND SUCCESS COME HERE WITH STATUS IN RO 
OA 6C 91 9 425 tMPB. CAP) #10 IND SPECIFIED? 
09 iF O023C 426 BLSSU 1208" : 
51 28 aC 00 0 3 427 MOVL 4O(AP),R1 : Ger ADDRESS OF IND 
9 13 0242 428 BEQL : DEFAULTED 
61 50 00 0 44 4 3 MOVL _——RO, (R1) : STORE STATUS 
04 0247 431 1208: RET 
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& 3 ey -SBTTL LPASSTPSWP = STOP SWEEP 
; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE STOPS SWEEP 


S N BE STOPPED IN TWO ph 
EITHER BY SETTING THE g"9 5) 
E 


ER STATUS WORD (WH 


WHICH 
TOPS AT_THE END O OR BY ISSUING A CANCEL 1/0 


: § F THE 
: (WHICH STOPS IT IMMEDIAT 
t CALLING SEQUENCE: 

: CALLS/G 

: INPUT PARAMETERS: 

; IBUF (AP) ADDRESS OF IBUF A 

: IWHEN(AP) ADDRESS OF BYTE OnICH SPECIFIES WHEN TO 

: STOP SWEEP (0 = IMMED. NON-O0 = AT END OF BFR.) 
: IND (AP) ADDRESS OF LONGWORD TO RECEIVE STATS 

: IMPLICIT INPUTS: 

; VARIOUS FIELDS IN IBUF ARRAY 

: OUTPUT PARAMETERS: 

: IND (AP) ADDRESS OF LONGWORD TO RECEIVE STATUS 

: IMPLICIT OUTPUTS: 

: NONE 

: COMPLETION CODES: 


1 INDICATES SUCCESS 
VARIOUS ERRORS RETURNED BY S$CANCEL 


; SIDE EFFECTS: 
FIELDS IN THE IBUF ARRAY MAY BE MODIFIED 


oe at at ot ot ot ot 


0040 .ENTRY LPASSTPSWP, “M<R6> 
56 04 AC 00 MOVL 4(AP),R6 ; GET ADDRESS OF IBUF ARRAY 
02 6f 9 CMP (AP) ,#2 ; 1S IWHEN SUPPLIED? 
50 08 AC 09 MOVL (AP) ,RO : GET ADDRESS OF IWHEN 
OF 1 BEQL 0$ > DEFAULT 
6 03 TSTL —- (RO) : DETERMINE WHEN 
0A 1 BEQL 208 ; IMMEDIATELY 


DOOODODSOOOODSOOSOOSOSOSOSOOSOOSOOOOCOOOOOO OOOO ODOOOOOOOOOOOO 

PROP OPOPOPOPOPONOMONONONINOPONINOPONOPO NONI NO NIPO FORO PONO ORI ROR FORO FO RI POF RO RI PI PI POR IPP POF FORIFIRIFIRIFORIND 
See e eee ye oe oe oe oe oe ot ot ot ot oe oe ee III III III II III IIS 
MWCO ODW ONW—M lM & ® 00000000 0000 00 00 00 00 00 00 00 00 C0 G0 Gd GD Gd GO GO OO CO GO C2 OD Gd GD CO CD GO GO.G0 GO. C0. CO. G0 G9 G90 CD CE.CDCD 
00000000000 00000909 SI NI NIN NUNN NIA AAA AAAAAA UUM 

OWONAU EWR OO OONAU EWN OC DONAU EWN O OONAUEWN OO 


PEP LL LLL LLL LLLP PLL ELE EES 


AT END OF CURRENT BUFFER Re) SET STOP BIT IN USW 


49 A640 ef 88 b1sB #*xX40, IBF SW_USW+1 ( 
50. (01 #1,R0° > SUCCESS 


~— 
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0B 11 0265 490 BRB 408 | 
67 491 
67 49¢ 208: ISSUE CANCEL 1/0 
$7 493 SCANCEL_S IBFSW_CHAN(R6) ; RETURNS STATUS IN RO 
03 6 91 4 2 495 40$: CMPB (AP) #3 ; IND SUPPLIED? 
09 1F 0275 49% BLSSU 608 : N | 
51 OC AGO 0877 497 MOVL 12(AP),R1 ; YES, GET ADDRESS 
03 13 0278 498 BEQL ; DEF | 
61 50 0 7D 499 MOVL = —-RO, (R1) ; STORE STATUS IN IND | 
04 0280 500 60$: RET 


—— eee ee — — —E 1 
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“SEP-1984 IOSUP.SRCJLASWEEP.MAR; 1 
so ~SBTTL LPASCLOCKA = SET CLOCK A RATE 
; FUNCTIONAL DESCRIPTION: 
THIS ROUTINE SETS THE RATE FOR CLOCK A 
CALLING SEQUENCE: 


1 


CALLS/G | 
INPUT PARAMETERS: 
IRATE (AP) ADDRESS OF LONGWORD CONTAINING CLOCK RATE 
1PRSET (AP) ADDRESS OF WORD CONTAINING CLOCK PRESET 
IND (AP) ADDRESS OF LONGWORD TO RECEIVE COMPLETION STATUS 
CHAN (AP) ADDRESS OF WORD CONTAINING NUMBER TO IDENTIFY 
WHICH LPA=11 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 


1 INDICATES SUCCESS 
VARIOUS VMS SYSTEM STATUS CODES INDICATE ERRORS 


SIDE EFFECTS: 


Pete Se Se Se Ge Ge Ge Se Se Se Se Ge Se Se Ge Se Se Ge Se Ge Se Se Ge Se Se Se Se Se Se Se Se Se Se Se See 


| 
| 
| 
IND (AP) ADDRESS OF LONGWORD TO RECEIVE COMPLETION STATUS | 
| 
| 
| 
| 
| 
| 


PUT # OF ARGS LEFT IN RO, POINTER TO THEM IN R1, AND 
JOIN COMMON CLO K ROUTINE 
#2, (AP) : # OF ARGS LEFT | 


: 
| 
: 


CONAN WN OS OOO NAME WIN 9 OD NAME WIN 0 ODNOA UENO ODNAUN EWI CO OONAUE WP 


AAA AAS BBE BBE BWW WINING OOPORoPONNUNU) OOOO 


— sO OW DO AAA OWW A 2 


NONE 
28 ~~ 
OOFC 38 .ENTRY LPASCLOCKA,“M<R2,R3,R4,R5,R6,R7> 
55 01 00 ; MOVL  #1,R5 : MODE WORD 
: BUILD CLOCK STATUS. IF IRAT E 1S >= 0 THEN USE AS IS. IF 
: TRATE £9) THEN SET SCHMITT TRIGGER 1 INTERRUPT ENABLE (BIT 14). | 
56 00004141 af D MOVL by 4141,R6 : CLOCK STATUS INCLUDING BIT 14 | 
50 04 D MOVL a4 (AP), RO + PUT IRATE IN RO 
1 9 BLSS : 11S < 0. LEAVE RATE = ,° (BITS 1 = 3) 
56 4000 °F AA 029 BICW +°x4000 R6 : ITS >= 0. CLEAR BIT 
56 (0 =, 0 FO 029 INSV RO #1,83,R6 : INSERT RATE 
3C 9 10$:  MOVZWL aB(APS,R? : CLOCK PRESET 
A 


>> 


iid 


50 6C 02 = 83 


c 11 | 
vest LPASCLOCKA = SET CLOCK A RATE "Or ee rT Rs 1:93:38 FAB CURS Mag re ft loans, «| Page tb 


1 TE BBR 888 BRB { JOIN: COMMON ROUTINE 
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AB 562 .SBTTL LPASCLOCKB = SET CLOCK B RATE | 


COMPLETION CODES: 


1 INDICATES SUCCESS 
VARIOUS VMS SYSTEM STATUS CODES INDICATE ERRORS 


SIDE EFFECTS: 


PIPOIPOPOPIPIRSPIPYNIPYINIPONPONPINYINPNINY: 


So SSO OOOO ODODOODDeD 
LRQA AAAAPAADP DAA DAD AAD UII 


AB § 

AB : FUNCTIONAL DESCRIPTION: 

AB : THIS ROUTINE SETS THE RATE FOR CLOCK B 

AB + CALLING SEQUENCE: 

AB : CALLS/G | 

AB : INPUT PARAMETERS: | 

AB : IRATE (AP) ADDRESS OF LONGWORD CONTAINING CLOCK RATE 

AB : IPRSET (AP) ADDRESS OF WORD CONTAINING CLOCK PRESET | 

AB : MODE (AP) ADDRESS OF A WORD WHICH SPECIFIES OPTIONS | 

AB : BIT 0 SET IND CATES OPERATE CLOCK B IN 

AB : NON-INTERRUPT MODE | 

AB : BIT 1 SET INDICATES THE FEED B TO A BIT SHOULD 

AB : T IN THE CLOCK B STATUS REGISTER | 

AB : IND (AP) ADDRESS OF LONGWORD TO RECEIVE COMPLETION STATUS | 

AB ; CHAN (AP) ADDRESS OF WORD CONTAINING NUMBER TO IDENTIF 

AB ; WHICH LPA-11 | 

2AB $ | 

AB : IMPLICIT INPUTS: | 

AB ; NONE | 

AB : OUTPUT PARAMETERS: 

AB : IND (AP) ADDRESS OF LONGWORD TO RECEIVE COMPLETION STATUS 
: IMPLICIT OUTPUTS: | 
: NONE | 
: 
; 
: 


tt 4 MQOODODODOOOSO OO OOO OOOO 00000090900 0909 09 09 08 SIN NI NSIS NSIS NIA AOAAAOAO 
CONAN WN 9 ODNAU EWN SO OO NAMES WWM 9 ODNAU EWN 0 OO NAUE WN OOONAULS WP 


OOOCOOCOOSOCOCOCOCOC COC OCOCOCSCOOO OOOO OOCOCOO COO OOOO OOOOOOOOOO 


NONE 

OOFC .ENTRY LPASCLOCKB, “M<R2,R3,R4,R5,R6,R7> | 
11. 00 MOVL  #*X11,R5 ; MODE WORD 
BF D0 80 MOVL #*X41.R6 + CLOCK STATUS | 
AC 00 B MOVL  4(AP)-RO > ADDRESS OF IRATE 
i? -% BB BEQL 40S > DEFAULT 
60 0D BD MOVL (RO), RO : GET IRATE 
19 1 C BEQL : ZERO 
50 OF C INSV RO, #1,#3,R6 : INSERT IRATE | 
BC £9 02¢ BLBC 13(AP) , 208 : BR. IF LEAVE INTERRUPTS ENABLED 
8F 8A 92¢B BICB 0,R6 : CLEAR INTERRUPT ENABLE 


E 11 
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rivet LPASCLOCKB = SET CLOCK B RATE mi ioets Bhi 93i38 fOSUP. Se LASWEEP.MAR; 1 . (7). 
} 
03 OC 1 €1 O2CF 619 208: BBC #1,a12(AP) , 30S : BR. IF DON'T SET FEED B TOA | 
Bf 94 bs D4 g p BISB #400 R6 : SET FEED B TO A | 
57° 08 BC O3C D7 6 30$ MOVZWL @B(APS,R7 : PRESET 
DB 623 40$ GET # OF ARGS LEFT IN RO, ADDRESS OF NEXT ARG IN Rt | 
50 6C 03 83 O2cDB 624 SuBB3 #3, (AP) 5 ; NUMBER OF ARGS LEFT 
51 10 AC DE DF ‘ 5 MOVAL 16(AP),R + ADDRESS OF NEXT ARG 
E36 § CLKCOM: ; BOTH CLOCK ROUTINES COME HERE FOR COMMON PROCESSING | 
53 7C «(OES 6 8 CLRO.OR ; R3 WILL HOLD LPA CHANNEL 
E 6 3 : Ra WILL HOLD ADDR. OF IND 
50 (97 ER 631 DECB = RO ; DECR. ARG COUNT 
OF 19 O2E7 6 : BLSS  50$ + NO MORE ARGS 
54 81) Ci sCOO E9 6 ; MOVL  (R1)+,R4 + ADDR. OF IND 
59 97 8 EC 635 DECB =e RO ; DECR. ARG COUNT 
08 19 OEE 636 BLSS  50$ + NO MORE ARGS 
53. BI 09 0 FO 637 MOVL  (R1)+,R3 : ADDRESS OF LPA CHANNEL 
03 13 OoF3 638 BEQL 50$ + DEFAULTED 
53 63) LC 0 FS 639 MOVZWL (R3),R3 : GET CHANNEL NUMBER 
O2F8 641 50S: NOW ALLOCATE SPACE ON STACK TO RECEIVE CHANNEL NUMBER ASSIGNED 
er 64g AND SPACE FO FOR 1/0 STATUS BLOCK FOR QIO. 
SE OC C2 O2FB 64 UBL : zi LONGHORDS SHOULD DO IT 
52 OSE) «=—iOs«O2FB 4G MOVL SP ao” : PLACE TO STORE CHANNEL NUMBER ASSIGNED 
O1DE 30 cre 645 BSBW LPAS$SASSIGN : ASSIGN CHANNEL 
45 50 £9 0301 646 BLBC ~—_- RO, 90 + ERROR | 
0304 647 
0304 648 NOW SET CLOCK IBF! 
0304 649 $ai0w_§ 5 #CLKEVFLG,- ; EVENT FLAG IBF 
0304 650 (R2),- + CHANNEL NUMBER IBF 
0304 651 #10$SETCLOCK,- ; 1/0 FUNCTION CODE IBF 
0304 63¢ 4(R23,- : 1/0 STATUS BLOCK IBF 
0304 65 et : AST ADDRESS, AST PARAMETER IBF 
0304 654 "RS RG, R? : MODE WORD, CLOCK STATUS, PRESET IBF 
1350 £9 0324 655 BLBC }3—E— «RO : ERROR IBF 
50 04 A2 3 0327 656 MOVZWL reRoye RO : 1/0 STATUS 1BF 
0c 50 £9 0328 657 BLBC RO, 80$ : ERROR IBF 
O32E 658 IBF 
O32— 659 » NOW DEASSIGN CHANNEL IBF! 
03 E 660 $DASSGN_S (R2) | 1BF! 
OF 11 03 8 661 BRB : STATUS IS IN RO | 18 
033A $06 80$: ERROR IN Q10 - SAVE STATUS BEFORE DEASSIGNING CHANNEL IBF 
50 ppd 0 3A 664 BUSHL SAVE STATUS | 1BF 
33¢ 665 SDASSGN. (R2) IBF 
50 8EDC 346 666 POPL “RO ; RESTORE STATUS | 18F 
54 DS 39 668 90S: mi ; IND SPECIFIED? 10$ 
03 13 0348 669 BEQL 95% > NO 
64 50 00 340 670 MOVL RO, (R4) : YES, STORE STATUS $ 
04 0350 671 95$: RET 
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673 es .SBTTL LPASLAMSKS = SET MASKS BUFFER 
673 ¢ FUNCTIONAL DESCRIIPTION: | 
1 or$ ; THIS ROUTINE PERFORMS TWO COMPLETELY SEPARATE FUNCTIONS 
51 678 ; FIRST IT MUST BE CALLED BY PROGRAMS THAT UTILIZE TWO OR 
31 679 : LPA=11S TO IDENTIFY WHICH LPA=-11 1S TO BE USED IN A SUBSEQUENT 
1 680; START SWEEP CALL. THE SECOND A GUMENT 1S A NUMBER WHICH IS APPENDED 
51 681: TO THE LOGICAL NAME THAT IS USED TO ASSIGN A CHANNEL TO. 
51 68¢ : ASSUMED THAT THE USER HAS ASSIGNED THE RESULTANT LOGICAL NAME 
0351 683 : TO THE APPROPRIATE LPA-11. 
0 51 684 : SECONDLY, THIS ROUTINE MUST BE CALLED BY PROGRAMS THAT UTILIZE 
51685 : DIGITAL [NPUT STARTING OR EVENT MARKING. ARGUMENTS CAN SUPPLIED 
0351 686 : FOR THE DIGITAL INPUT START WORD AND MASK AND FOR THE EVENT MARK 
0351 687: WORD AND MASK. | 
0351 688 : 
0351 689 : CALLING SEQUENCE: 
0351 690; 
0351 691: CALLS/G 
0351 692 ; 
0351 693 : INPUT PARAMETERS: 
0351 694: | 
0351 695: LAMSKB(AP) ADDRESS OF 8 BYTE A 
0351 696 : NUM (AP) ADDRESS OF WORD CONTAINING NUMBER TO APPEND TO LOG. NAME 
0351 697: IUNIT (AP) UNUSED (PRESENT FOR RSX-11M COMPATIBILITY) 
0351 698: STWRON(AP) ADDRESS OF BYTE CONTAINING DIGITAL START | CHANNEL | 
0351 699: EVMRKN(AP) ADDRESS OF BYTE CONTAINING EVENT MARK CHANNEL 
0351 +700: STWRDM(AP) ADDRESS OF WORD CONTAINING DIGITAL START MA 
0351 701: EVMRKM(AP) ADDRESS OF WORD CONTAINING EVENT MARK MASK | 
0391 208 ; IND (AP) ADDRESS OF LONGWORD TO RECEIVE STATUS | 
0351 704 : IMPLICIT INPUTS: | 
0351 705: | 
0351 706: NONE 
0351 +707; 
0351 708 : OUTPUT PARAMETERS: 
0351 709: 
0331 210 : IND (AP) ADDRESS OF LONGWORD TO RECEIVE STATUS 
0351 rie : IMPLICIT OUTPUTS: 
0351 713; 
0351 714: THE 8 BYTE ARRAY IS FILLED IN 
0351 «715: 
0381 at : COMPLETION CODES: 
0351 «718: 1 INDICATES SUCCESS (TKIS OUT INE ALWAYS RET URNS SUCCESS. 
0351 £19 : THE ARGUMENT IS PRESENT FOR COMPATIBILITY ONLY) | 
0381 721 : SIDE EFFECTS: 
517 ‘ : 
0351 723: NONE 
6 51-724; 
21 feo i= 
| ee 6 
000¢ 31 u . .ENTRY LPASLAMSKS, “M<R2,R3> 
DE 0 33 729 MOVAL 4(AP),R3 : R3 CONTAINS ADDRESS OF ARGUMENT LIST 
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52 83 00 7 730 MOVL = (R3)+,R2 ; R2 CONTAINS ADDRESS OF 8 BYTE ARRAY 
4 C A , 1 CLRQ = (R2) + CLEAR ARRAY 
eee 4 ; PROCESS NUM 
51 6C 02 83 734 §uBB #2 (AP) ,R1 : R1 CONTAINS # OF REMAINING ARGS 
48 1 60 «735 BLSS 9 § + NO MOR 
50 8 09 62 7 : MOVL  (R3)+,RO + GET ADDRESS OF NUM 
04 1 65 7 BEQL 108 + DEFAULTED 
06 A2 60 BO 67 i 8 MOVW (RO), 6(R2) + STORE IN ARRAY 
68 740 108: » PROCESS STWRDN 
51 92 82 68 741 SUBB #2 R1 : ENOUGH ARGS? 
D «1 6 146 BLSS 908 + NOPE 
83 D5 74 TSTL (R3)¢ : SKIP OVER UNUSED ARG 
50 8 06 0372 744 MOVL = (R3)+,RO : GET ADDRESS OF STRWDN 
03 1 037 745 BEQ 203 + DEFAULTED 
62 60 90 0377 746 MOVB _— (RO), (R2) : STORE IN ARRAY 
037A 748 20S: : PROCESS EVMRKN 
51 97 O37A 749 beCB CR : ENOUGH ARGS? 
2F 4619 O37C 8750 BLSS 90% : NOP 
50 83 09 O37E 751 MOVL  (R3)+,RO : GET ADDRESS OF EVMRKN 
04 13 0381 138 BEQL 308 : DEFAULTED 
01 a2 60 90 0383 133 MOVB (RO), 1(R2) ; STORE IN ARRAY 
0387 755 30S: ; PROCESS STWRDM 
51 97 0387 756 bECB. CR ; ENOUGH ARGS? 
22 19 0389 757 BLSS 90% ; 
50 83 oO 0388 758 MOVL  (R3)+,RO + GET ADDRESS OF STWRDM 
04 13 O38E 759 BEQL 40% + DEFAULTED 
02 a2 60 80 0390 760 MOVW (RO), 2(R2) : STORE IN ARRAY 
0394 16 40$: : PROCESS EVMRKM 
51 97 0394 76 bECB CR : ENOUGH ARGS? 
15 19 0396 764 BLSS 90% + NOP 
50 83 DO 0398 765 MOVL  (R3)+,RO : GET ADDRESS OF EVMRKN 
04 13 0398 766 BEQL 50% : DEFAULTED 
04 A2 60 B0 0390 167 MOVW (RO), 4(R2) : STORE IN ARRAY 
O3AI 769 50S: : PROCESS IND 
51 97 O3A1 770 ECB. CRI : ENOUGH ARGS? 
08 19 O3A3 771 BLSS 90% ; 
50 83 00 035 ire MOVL  (R3)+#,RO : GET ADDRESS OF IND 
03 1 348 77 BEQL 908 > DEFA 
60 01 00 O3AA 17h MOVL #1, (RO) : STORE SUCCESS STATUS 
04 O3AD 776 90$: RET 
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-SBTTL LPASSETADC = SET CHANNEL PARAMETERS 


+ 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE SETS THE CHANNEL SAMPLING PARAMETERS. 


CALLING SEQUENCE: 


SIDE EFFECTS: 


VARIOUS FIELDS IN THE IBUF ARRAY ARE MODIFIED 


~-ENTRY LPASSETADC,“M<R2,R3,R4,R6> 


CLRL = RO ; STATUS 

MOVL 4 (AP),R6 ADDRESS OF IBUF ARRAY 
CMPW BFSQ_1OST(R6),MINITCODE’ ; VERIFY LPASSETIBF WAS 
BNEQ 0$ ; IT WASN'T = ERROR 


MOVAL 12(AP),R3 
; PROCESS ICHN 


; POINT TO ICHN ARG 


AX/VMS Macro V04-00 
IGSUP.SRCJLASWEEP.MAR; 1 


vw 
ao 
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CALLS/G 
INPUT PARAMETERS: 
IBUF (AP) ADDRESS OF IBUF ARRAY 
IFLAG (AP) UNUSED (PRESENT FOR COMPATIBILITY WITH RSX-11M) 
ICHN(AP) IF INC IS DEFAULTED OR NON-ZERO, THIS IS THE ADDRESS 
OF A BYTE CONTAINING THE INITIAL CHANNEL NUMBER 
IF INC = 0, THIS IS THE ADDRESS OF A RANDOM 
CHANNEL LIST. 
NCHN(AP) ADDRESS OF A WORD CONTAINING NUMBER OF SAMPLES TO 
BE TAKEN PER SAMPLE SEQUENCE. 
INC (AP) ADDRESS OF A BYTE CONTAINING THE CHANNEL INCREMENT. 
IF THIS BYTE CONTAINS 0, THEN ICHN IS THE ADDRESS 
OF A RANDOM CHANNEL LIST. 
IND (AP) ADDRESS OF A LONGWORD TO RECEIVE STATUS. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
IND (AP) ADDRESS OF A LONGWORD TO RECEIVE STATUS 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
0 INDICATES LPASSETIBF WAS NOT CALLED PRIOR TO THIS CALL 
1 INDICATES SUCCESS 


CALLED 


1 11 
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52. 6c 2 8 cS 5 suees #3 (AP) ,R2 ; ENOUGH ARGS? 
54 8 D0 C7 5 Sbve + + R4 = ADDRESS OF ICHN OR RCL 
CA § » PROCESS NCHN 
52 97 O3CA 840 bECB ORR : ENOUGH ARGS? 
3 19 O3CC 841 BLSS 2 $ ; 
51 8 09 CE 4¢ MOVL (R3)+,R1 : CET ADDRESS OF NCHN 
4 1 Di = B4 BEQL + DEFAULT 
3¢ AB «61S—s«éwB*OD D3 a4 MOVW  (R1),IBFSL_CMDTBL+CMTSW_NCHN(R6) ; STORE NCHN | 
0 D7 46 10S: ; PROCESS INC 
52 97 0307 84 bECB CR : ENOUGH ARGS? 
11 19 0309 848 BLSS 20% tN 
51 83 09 0 DB B49 MOVL  (R3)+,R1 : GET ADDRESS OF INC 
oc 1 DE 850 BEQL 208 DEFAUL 
38 AG) 661) s(90s«*OEO~—s 851 MOVB (RI), 1BFSL_ CMDTBL+CMT$B_ inttaeye; STORE INC 
06 12 0 E 85¢ BNEQ 20% N-Z ZERO, SO ICHN IS NOT RCL ADDR. 
b3e6 854 ; INC = 0 SO ICHN IS RCL ADDRESS (IN R4) 
34 a6 «65400 COO3E6— B55 MOVL  R4,IBFSL_CMDTBL+CMTS$L_RCLADDR(R6) ; STORE RCL ADDRESS 
08 11 O3EA 836 BRB 70$ 
O3EC 858 20S: : INC WAS EITHER DEFAULTED OR NON-ZERO SO R4 POINTS TO ICHN VALUE 
54 DS O3EC 859 TSTL S {CHN DEFAULTED? | 
06 13 OEE 860 Beat fos 
3A A664 03F0 861 MOVB = (R4), We cnet BH : NO, STORE ICHN VALUE | 
O3F4 He 70$: SUCCESS. RETURN 
4C A6 08 AB O3F4 864 bis M_SETADC, IBFSW_FLAGS(R6) — ; SET SETADC CALLED BIT | 
50 06 O38 865 INCL RO” : SET SUCCESS CODE 
O3FA 867 80S: — ; STORE COMPLETION CODE IN IND 
06 6C 91 O3FA 868 CMPB CCAP) #6 ; ENOUGH ARGS? 
09 IF O3FD 869 BLSSuU) 9 ; 
51 18 AC DO O3FF 870 MOVL 24(AP),R1 : GET ADDRESS OF IND | 
03 13 0403 871 BEQL 90S + DEFAULTED | 
61 50 00 0405 87¢ MOVL _—RO, (R1) : STORE VALUE IN IND 
04 0408 873 908: RET | 
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~SBTTL LPASCVADF = CONVERT A/D TO FLOATING POINT 
~SBTTL LPASFLT16 = CONVERT UNSIGNED WORD TO FLOATING POINT 


p++ 
; FUNCTIONAL DESCRIPTION: 


OO 
Oo 


5 a ee ee 


LPASCVADF CONVERTS A 
THE 


NUMBER RETURNED BY AN A/D ERTER TO 

FLOATING POINT. NUMBER IS A SIGNED 1 eit ER WITH BIT 11 
THE SIGN BIT. S FOR THIS REASON THAT *X0800 IS SUBTRACTED 

THE NUMBER BEFORE IT IS adh f TO FLOATING POINT. NOT 
THE ORIGINAL ¥ F_ROUTINE (ON RSX=-11M?) ec ise AN_A/D VALUE 

ITS Q. = 11 OF THE WORD AND A GAIN IN BITS 12 = 15. HOWEVER 
THE LPA=11 ON ~ DOES NOT SUPPORT ANY A/D‘S THAT SUPPLY A GAIN 
is errs - 15. REFORE, THIS ROUTINE DOES NOT USE THOSE BITS 
LPASFLT16 CONVERTS AN UNSIGNED(!) WORD TO FLOATING POINT AND IS 
INCLUDED HERE FOR COMPATIBILITY REASONS. 


CALLING SEQUENCE: 


CALLS/CALLG 
THESE ROUTINES MAY BE CALLED AS FUNCTIONS 


INPUT PARAMETERS: 


Fal tel tal al alk tel ele ae ta a ke ek ee ke 
pejolelelelelejlelelelelelelelelelelelo/ =! 
OWOWOOVOOONOOVOVOVOOVOVOOOOOOVOO 


IVAL (AP) ADDRESS OF WORD TO CONVERT 
VAL (AP) ADDRESS OF LONGWORD TO RECEIVE RESULT 


IMPLICIT INPUTS: 


NONE 


OUTPUT PARAMETERS: 


SOOSVDOGOSCOOCCOOOOO 0 OO OWMMcccoc7cDcD0 ~~ 


VAL (AP) ADDRESS OF LONGWORD TO RECEIVE RESULT 


IMPLICIT OUTPUTS: 


NONE 


COMPLETION CODES: 


NONE 


SIDE EFFECTS: 


Bete Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Se Ge Se Se Ge Ge Ge Se Ge Se Se Se Se Se Se Ge Se Se Ge Ge Se 


WWOWODOODOOOOOOOOOOOOOO0O0O0O0000 0000 00 00000000 00 00 00 09 09 09 C9 CD CD CD CD CD CD CD CD CD CD CD CD DCD 
=OODNA MN FUN 0 OD WA UE WIN SO OD NAME WIN 0 OD NOA UE WIN 0 OOD NOUN WW OOOO 


AIAN POPONOPONONONONIN) 2 2 SS 


NONE 


ENTRY LPASFLT16,“°M<> 
MOVZWL Baan te 3 convent 


RO 3; CONVER 
BRB cvCom 


-ENTRY LPASCVADF ,“M<> 
SUBW3 #*X0800,a4 (AP) ,RO : SUBTRACT *xX0800 FROM INPUT 
RO,RO : CONVERT TO FLOATING 


INPUT WORD TO LONGWORD 
TO FLOATING POINT 


LPASFLT16 = CONVERT UNSIGNED WORD To FLO 'S-eEPalone S):45:58 


9 
1 
Dd 
1 
D 
0 


fSowon— 


338 

9 

i CVCOM: ; OPTIONALLY STORE RESULT 
935 CMPB «NC AP) #2 

936 BLSS 

937 MOVL  &(AP),R1 

938 BEQL 


RO,(R1) 


ae ARGS SUPPLIED? 


GET ADDRESS OF ARG 
EFAULTED 
RE RESULT 


DEF 
STO 
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43t a p .SBTTL LPASXRATE = COMPUTE CLOCK RATE AND PRESET 
42t 944 ; FUNCTIONAL DESCRIPTION: 
4 948 THIS ROUTINE COMPUTES A CLOCK RATE AND PRESET GIVEN A DESIRED 
Gor | 947 : DWELL CINTER=SAMPLE INTERVAL). THE CLOCK RATE IS ALWAYS 
at 948 THE HIGHEST RATE WHICH WILL PERMIT THE REQUESTED DWELL IN ORDER TO 
45F 6949 : CHIEVE THE FINEST RESOLUTION. THIS MAY BE DIFFERENT FOR CLOCK A 
45F 950 : CK 6 AS THEY HAVE DIFFERENT MAXIMUM PRESETS. — THE CLOCK RATE 
O45F 951 : 1S RETURNED AS A NUMBER (1 - 5) WHICH CAN THEN BE USED AS THE CLOCK | 
O4gF  95¢ RATE FOR LPASCLOCKA OR LPASCLOCKB. IF CALLED AS A FUNCTION, THE | 
045k 958 : FUNCTION VALUE IS THE ACTUAL DWELL BEING SUPPLIED, WHICH MAY DIFFER | 
O6gF 954 FROM THE REGUESTED DWELL DUE TO TRUNCATION ERROR. | 
045F 956 : CALLING SEQUENCE: 
O42F 957; 
045F 958 : CALLS/G 
045F 959 : MAY BE CALLED AS A FUNCTION | 
042F 960; 
O4gF 961; INPUT PARAMETERS: | 
O45F 963 : DWELL (AP) ADDRESS OF LONGWORD CONTAINING DWELL AS | 
O4gF 964 FLOATING POINT NUMBE 
O45F 965 : IRATE (AP) ADDRESS OF A LONGUDRD TO RECEIVE THE CLOCK 
O63 a38 ; RATE (1 = 5) (0 INDICATES ERROR 
045F 968: IPRSET (AP) ADDRESS OF A WORD TO RECEIVE CLOCK PRESET 
O45F 969 : IFLAG(AP) ADDRESS OF A BYTE WHICH INDICATES WHETHER 
049F 970: HE COMPUTATION IS FOR CLOCKA (MAXIMUM | 
045F 971 : PRESET = 65535) OR CLOCK B (MAXIMUM PRESET = | 
045F 972 : ) 0 = CLOCKA. NON-O = CLOCK B. 
O42F 973; IMPLICIT INPUTS: 
042F 974; | 
O45F 975 : NONE 
O42F 976; 
045F 977 : OUTPUT PARAMETERS: 
042F 978; 
045F 979 : IRATE (AP) SEE ABOVE 
045F 980 : IPRSET (AP) SEE ABOVE 
045F 981 : RO FUNCTION VALUE. ACTUAL DWELL COMPUTED 
O6or  98@ AS A FLOATING POINT NUMBER. 
O49F 984 : NOTE THAT IF THE DESIRED DWELL IS TOO SMALL OR TOO LARGE TO BE | 
oF 985 ACHIEVED, THEN BOTH IRATE(AP) AND RO WILL CONTAIN ZERO | 
042F 987 : IMPLICIT OUTPUTS: 
427 43 3 
4oF 6 «989 : NONE 
42—F 990; 
42F 991 COMPLETION CODES: | 
aor 86998 : IF IRATECAP) OR RO EQUALS ZERO, THEN THE DESIRED DWELL COULD | 
45F 699% NOT BE ACHIEVED. | 
45F 6995: : | 
45F 996 : SIDE EFFECTS: 
42F 997 ; 
Cor | 998 : NONE 
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42F 99 ; 
ast 1880 > 
003¢ ae] ¢ .ENTRY LPASKRATE,“M<R2,R3,R4,R5> | 
431 1004 GET main M PRESET 
55 FFOOG87E 8F j 4 } hovF nF 8555 BOERS : MAXIMUM PRESET FOR CLOCK A | 
13 0438 1 BEQL itt t COMPUTATION IS FOR CLOCK A 
55 0000447F BF SS 43D : MOVF 108 ons + MAXIMUM PRESET FOR CLOCK B 
C 50 0444 1010 10$ MOVF  a@4(AP),R4 : DESIRED DWELL 
37BD3086 BF 8F :: 3} 448 1911 CHP R4,#*F6.000001 ; Is IT WITHIN RANGE? 
53 26006A74 BF 50 «(0451 1918 MOVF § #*F1000000.0,R3 : MAXIMUM CLOCK RATE (1 MHZ) 
52. 01 «+00 0498 1014 MOVL #1,R2 : LOOP COUNTER AND CLOCK RATE NUMBER 
0136 1018 20S: fut CULATE PRESET: PRESET = RATE X DWELL 
51 53 56 45 0458 101 R3,R1 ; CALCULATED PRESET IN R1 
55 31 3 O45 1018 ie : LESS TH AN N MAXIMUM PRESET ALLOWED? 
53 22 4 beer 1020 DIVE  #4F10.0 + NO - DIVIDE CLOCK RATE BY 10 
f0 52. sOSsiéF 0467 19 1 AOBLEQ #5,R2, SOR t AND TRY NEXT CLOCK RATE 
0468 10 - : IF WE FALL THROUGH THAN DESIRED DWELL IS TOO GREAT TO BE 
0468 1024 : ACHIEVED WITH THE SLOWEST CLOCK RATE AND LARGEST PRESET. 
16 «11 0468 10 3 BRB 40$ 
046D 1027 30$: =; HAVE CALCULATED PRESET IN R1. ADD 0.5 AND TRUNCATE TO AN INTEGER 
51 00 40 046D 1028 ADDF “F0.5,R1 : TOR 
51 51—GA 0470 1029 CVTFL Ri Ri : CVT TO A LONGWORD TO AVOID OVERFLOW 
$1513 0473 1030 MOVZWL R1.R1 + NOW TRUNCATE TO A WORD 
0476 103¢ ; STORE PRESET (AS TWO'S COMPLEMENT OF CALC. PRESET BECAUSE THAT'S 
0476 103 : WHAT THE CLOC cKS USE) 
0c BC 51 AE 0476 1034 necw R1,a12(AP) 
47A 1036 : NOW CONVERT EVERYTHING BACK TO FLOATING POINT TO GIVE CALLER 
467A 1037 : ACTUAL DWELL COMPUTED (WHICH MAY BE DIFFERENT DUE TO TRUNCATION ERROR) 
51 51 4E 047A 1038 CVTLF R1,R CONVERT TO FLOATING POINT 
50 51 53 47 047D 1039 DIVES R3,R1,RO : ACTUAL DWELL = PRESET / RATE 
4 1 0481 1040 BRB 50$ 
oe 1048 40S: i ERROR - EITHER DESIRED DW ELL was T00 GREAT ( > 655.35 FOR CLOCK | 
483 104 > 2, 5 FOR CLOCK 8) OR WAS TOO SMALL ( < 0.000001 FOR aEAUHER CLOCK) 
52 D4 048 1044 i, Be ; RETURN NYO FOR CLOCK RATE NUMBER | 
504 oie? 1045 CCRE RS t AND 0 FOR COMPUTED DWELL | 
caf 1947 50$:  ; STORE ‘ Ock RATE NUMBER (IN R2) 
08 BC 52. 00 04 7 1048 MOVL ORCA 
04 0488 1049 RET : COMPUTED DWELL IN RO FOR FUNCTION CALL | 
| 
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4 ¢ 31 fi ~SBTTL LPASLOADMC = LOAD MICROCODE 
rt ¢ : 3 FUNCTIONAL DESCRIPTION: 
48¢ 1055; THIS ROUTINE SENDS A REQUEST TO THE LPA-11 MICROCODE LOADER 
48C 1 36 ; PROCESS TO LOAD A SPECIFIED VERSION OF MICROCODE INTO A SPECIFIED 
48C 1057 ; LPA-11. THE LPA-11 IS SPECIFIED BY A NUMBER WHICH IS APPENDED 
r ¢ 1938 ; TO A LOGICAL NAME (SEE LPASSASSIGN ROUTINE) 
48C 1060 ; CALLING SEQUENCE: 
048C 1061 ; 
04 c. 3 $¢ : CALLS/G 
48C 1063 ; 
peg 1064 ; INPUT PARAMETERS: | 
48C 1065 ; 
048C¢ 1066 ; ITYPE (AP) ADDRESS OF BYTE CONTAINING TYPE OF 
048C 1067 ; MICROCODE TO LOAD EXE 
048C 1068 ; 1 = MULTIREQUEST EXE 
048C 1069 ; é = DED. A/D FET 
048C 1070 : = DED. D/A | FET 
048C 1071 ; INUM(AP) DDRESS OF WORD CONTAINING NUMBER TO APPEND FET 
048C 107¢ : TO LOGICAL NAME (TO ASSIGN CHANNEL TO) FIN 
048C 1073; ISTAT(AP) ADDRESS OF LONGWORD TO RECEIVE COMPLETION CODE | FIN 
048C 1074; TERROR (AP) ADDRESS OF LONGWORD TO RECEIVE S$ FIN 
048C 1075; LONGWORD OF I/O STATUS BLOCK IF COMPLETION FIN 
048C 1076; CODE IS sss _DEVCMDERR, SS$_DEVREQERR, OR FIN 
048C 1077; SS$_CTRLERR 
048C 1078; FIN 
048C 1079 ; IMPLICIT INPUTS: | 
048C 1080 ;: FIN 
048C 1081 ; NONE | FIN 
048C 108¢ : FLU 
048C 1083 : OUTPUT PARAMETERS: FMG 
048C 1084 ; GET 
048C 1085 ; ISTAT(AP) SEE ABOVE INI 
048C 1086 ; JERROR (AP) SEE ABOVE INI 
048C 1087 ; JOB 
048C 1088 ; IMPLICIT OUTPUTS: Jog 
048C 1089 ; JO8 
048C 1090 ; NONE L18 
048C 1091 ; 
d48¢ 1098 ; COMPLETION CODES: 
occ 1094 VARIOUS SYSTEM STATUS'S | 
48C 1095; 
048C 1096 ; SIDE EFFECTS: 
beet 1097 ; 
48C 1098 ; NONE | 
048C 1099 ;-- | 
aac 1100 | 
003¢ gC 1101 sENTRY LPASLOADMC, “M<R2,R3,R4,R5> | 
54 6C 9A O048E 1108 MOVZBL (AP),R4 : GET NUMBER OF ARGUMENTS 
53 04 «60491 «1104 CLRL R3 : DEFAULT NUMBER TO APPEND TO LOG. NAME | 
55 01 00 493 1199 MOVL #i,RS ; DEFAULT MICROCODE TYPE 
496 1109 3 PROCESS ITYPE 


? 
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54 D7 «(04696 11 DECL  R4 : ENOUGH ARGUMENTS SUPPLIED? 
16 19 049 1198 BLSS 50% + NO 
50 04 AC 09 469A 1110 MOVL  4(AP),RO : GET ADDRESS OF ITYPE 
03 13 0496 1111 BEQL 40$ t DEFAULTED | 
55 60 OA 4A 1118 MOVZBL (RO),R5 : GET ITYPE | 
4A3 1114 40S: » PROCESS INUM 
54 7 4A 1119 beCL RA : ENOUGH ARGUMENTS SUPPLIED? 
50 08 aC 09 4A 149 MOVL g¢P) no : GET ADDRESS OF INUM | 
03 13 O4AB 1118 BEQ + DEFAULTED | 
53 60) «(3C 4A 1119 MOVZWL (RO),R3 : GET INUM 
4B0 1121 50$: ASSIGN CHANNE TO LPA-11 | 
52 7E 3€ 0480 11 ‘ hovaw -(SP), : GET ADDRESS OF WORD ON TOP OF 
4B3 11 + STACK TO RECEIVE CHANNEL NUMBER 
0029 30 0483 1124 BSBW  LPASSASSIGN : ASSIGN CHANNEL 
0 €9 0486 1 5 BLBC ~—_- RO, 708 + ERROR 
4B9 11 5 ; NOW SEND REQUEST TO LOADER PROCESS 
55 pp 0489 1128 USH RS ; PUSH MICROCODE TYPE 
62 3F 0488 1129 PUSHAW (R2) + PUSH ADDRESS OF CHANNEL 
90000000'EF 02 FB O4BD 1 0 CALLS #2, LPASSSNDLDROQ + SEND LOAD REQUEST 
044 1133 708: : PROCESS ISTAT 
54 7 O4c4 1133 becL Ra : ENOUGH ARGUMENTS SUPPLIED? 
52 OC AC 00 04€8 1135 MOVL  12(AP),R2 t GET ADDRESS OF ISTAT 
03 13 O4CC 1136 BEQ 80$ + DEFAULTED 
62 50 00 O4cE 1137 MOVL _——RO, (R2) + STORE ISTAT 
0401 1139 80S: ; PROCESS IERROR 
54 07 0401 1140 ECL RA ; ENOUGH ARGUMENTS SUPPLIED? 
52. 10 AC 00 0405 1148 HOVL 16(AP) ,R2 ; GET ADDRESS OF IERROR 
62 51 00 O4DB 11447 MOVL _—R1, (R2) : STORE IERROR 
O4DE 1145 
04 O4DE 1146 90$: RET 
| 
| 
| 
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ADF 1148 ai .SBTTL LPASSASSIGN - ASSIGN A CHANNEL TO AN LPA-11 
4DF 1130 : FUNCTIONAL DESCRIPTION: 
4DF 1136 : THIS ROUT INE ASSIGNS A CHANNEL TO A LOGICAL NAME OF THE FORM 
4DF 1153; LPA11$n, WHERE mn IS THE VALUE OF ONE OF THE INPUT ARGUMENTS. 
4DF 1154 : IT 1s ASSUMED THAT THE USER HAS ALREADY ASSIGNED THAT LOGICAL NAME 
Es ad 
O4DF 1137 ; CALLING SEQUENCE: 
eg fee 
O4DF 1161 t INPUT PARAMETERS: 
O4DF 1168 : R2 18 THE ADDRESS OF THE LOCATION TO STORE THE CHANNEL NUMBER | 
O4DF 1165: R3 CONTAINS THE NUMBER TO BE APPENDED TO THE LOGICAL NAME 
Rope 1188 3 TO ASSIGN A CHANNEL TO. | 
O4DF 1168 : IMPLICIT INPUTS: | 
O4DF 1169 ; | 
TE ae 
O4DE 1178 : OUTPUT PARAMETERS: 
O4DE 1174 : RO CONTAINS A COMPLETION CODE 
O4DF 1176 : IMPLICIT OUTPUTS: 
O4DF 1177: | 
See: ton 
O4DE 1180 > COMPLETION CODES: | 
Rope 1186 ; THE SAME ONES THAT ARE SUPPLIED BY THE SASSIGN SYSTEM SERVICE 
O4DE 1134 > SIDE EFFECTS: | 
O4DF 1186 : R1 1S NOT PRESERVED 
O4DF 1187 ; 
Bepe 1189 
O4DF 1190 LPASSASSIGN: | 
3¢ «BB O4DF 1191 PUSHR  #*M<R2,R3,R4,R5> ; SAVE SOME REGISTERS | 
55 SE 00 O4E! 1188 MOVL SP, RS ; SAVE STACK POINTER 
4E4 1195 : CONVERT NUMBER TO ASCII STRING ON STACK 
4E4 1199 10$: CONVERT NEXT DIGIT 
54 bs 4664 1198 éLRL : HIGH BITS OF aD iv !DEND 
54 53 53 OA 7B 0466 1199 EDIV. #10,R3,R3,R4 : 4 | 
7E 4054 9 89 04EB 1200 BISB3 #*x$0,R4,-(SP) : CONVERT TO aseti AND PUSH ON STACK 
DS O4EF 1201 TSTL = RB > REPEAT 
F1 «12 «(O4F1 1 é BNEG =«-108 : BR. IF VES 
ar 1 
4F3 1204 


; NOW PUSH PREFIX STRING ONTO STACK 
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4F3 1205 MOVL #ONPREF 1X8; ,R3 ; LENGTH OF STRING 
7E ty cra $9 4F6 1 6 20$: MOVB PREEIXCR31, (SP) + PUSH NEXT CHAR ON STACK | 
‘7 53—=O*#éF as SOBGEQ 4 : REPEAT 
OFF § NO BUILD A STRING DESCRIPTOR ON STACK 
SE C3 OOMFFE C1 10 guBL R5,R3 ; OVERALL LENGTH OF STRING 
: F 203 121 PUSHAB (36) ; + PUSH ADDRESS OF STRING 
pd 0505 1 1 PUSHL R + PUSH LENGTH 
— 00 3a 13 MOVL  SP,R4 > RG POINTS TO STRING DESCRIPTOR 
S0A 1215 NOW ASSIGN THE CHANNEL 
304 1 ba ASSIGN_S , (R2) 
SE $5 pO 0517 1 18 MOVL _—R5, SP ; RESTORE STACK POINTER 
C BA 051A 121 POPR  #*M<R2,R3,R4,R5> + RESTORE REGISTERS 
05 31 ° RSB : RETURN CODE IN RO FROM SASSIGN 
51D 1 é 
51D 1 
51D 1224 


| 
| 
| 
| 
«END 
| 
| 
| 
| 
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$811 : 00 LPASADSWP 00008C RG 

BFROVRN 2 A LPASCLOCKA RG 

CLKCOM ESR 02 LPASCLOCKB OO02AB RG | 
CLKEVFLG = 00 1 LPASCVADF {3 RG 

CHT$B_EVMRKN 21 LPASDASWP 0000093 RG 

CRT$SB~ICHN 0 A LPASD1 SWwP 0 09¢ RG 

CMHT$SBINC 01 LPASDOSWP AS RG 

CMTSB~STWRDN 0 9002 LPASFLT16 000409 RG 

CMTSB-VBFRMASK 0000 LPASLAMSKS 0000351 RG 

CHTSLBFRADDR — 0000000¢ LPASLOADMC 000048C RG 

CMTSL~BFRLEN 0000000 LPAS$SETADC O3AE RG 

CMTSL~RCLADDR 9000014 LPASSETIBF 00006 RG 

CMTSL_RCLL 0) 10 LPASSTPSwWP 48 RG 
CMTSL_USWADDR 0000004 LPASXRATE BRC er RG 0 
CMTSWDEL 00000018 NFECEX = 000000A0 | 
CHTSW~D 0000001E Th sew = 00000001 | 
CHT S$W~EVMRKM 0000024 SwPCOM OOOO00AA R 02 

CMT$W~MODE 0000000 SYS$ASSIGN teeteeee 02 

CMT $W~NCHN 900001 SYSSCANCEL aeeccone fi OF 

CHT$W~STWRDM 9000002 SYSSDASSGN eererere GX 0 

CVCOM 00000420 R 02 $Y$$010 sovecees Os ie | 
DEFEVFLG = 00000016 SYS$Q10W teeeeeee GX 0 

DNPREF IX 00000000 R 02 

DNPREF IXS = 00000006 
FLG_M_BFRORLSD = 00000010 | 
FLG_M_CNIBFRS = 00000004 

FLG-M-SETADC = 90008 | 
FLG-V7SETADC = 0000000 | 
FLG-V"USWSET = 00000000 

1BF SB7EFN 000004 

IBFSK"LENGTH = QOQOOOA 

IBF $L~CMDTBL 00000020 

IBFSL-COMPLADDR 00000010 
1BF $l ~DEVOBL 9000005¢ 
IBF $L~DEVOFL 0000058 

IBFSL-INUQBL 00000064 | 
IBF $L~INUOFL 00000060 

1BF $L~LAMSKB 0000001¢ | 
IBF $L-LBUF 00000014 

1BF $L~NBUF 0000018 

IBF $L~USROBL 0000054 

IBF $L~USROFL 0000050 

1BF $0~BFRLNKS 0000068 

IBF $Q~10SB 90000 

IBF $Q7 10ST 00000 

IBF $W_ CHAN O004A 
IBF SW7FLAGS 000004¢ | 
IBF $W7USW 0000048 

INITCODE = 00001234 

10$M_SETEVE tennessee X 0 

108_SETCLOC teeeneee X 0 

10$ STARTDATA eereeere x 0 

LPASSASSIGN 000004DF 

LPASSBFRAST eeetereee x 

LPASSCMPLTAST teneeeee x 

LPASSOVRAST ereerere x 

LPASSSNDLDRO eeeerere x 
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teocecance nan oem me} 


! Psect synopsis ! 


gnece weomoaeeaen ae + 
PSECT name Allocation PSECT No. Attributes 
ABS. 4444 : -} 0. NOPIC USR CON ABS LCL N tt rhe NOEXE NORD NOWRT pod $ BYTE 
$aBS$ 900A ( 168.) }. NOPIC USR CON ABS LCL N EXE RD WRT NOVEC BYTE | 
_LPASCODE $005 1D (¢ 1309. 5°} PIC USR CON REL LCL a EXE RD NOWRT NOVEC BYTE 
eee remo eww en eee ewe ee eee} 
H “Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 16 00:00:00.15 80:00 00-08 
Command processing 140 00: 8:80 -67 00:00:02. 
Pass 1 144 00:00:04.74 BF ON hn 36 
Symbol table sort 0 b's BO 00:00:00.2 
Pass 2 198 BBB O8° 5 00:00:04.19 
Symbol table output 6 00: 888-88 00:00:00.06 
Psect synopsis output 2 00:00:00.0 ses Be SPE 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 506 00:00:08.41 00:00:19.26 


| 
| 
| 
| 
} 
The working set Limit was 1500 pages. 
28069 bytes (55 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space a Secate to hold 123 non-local and 64 Local symbols. 
1353 source lines were read in Pass 1, "aon ty object records in Pass 2 | 
20 pages of virtual memory were used to define 19 macros. 
} 
| 


ere ee sees eee ewe eee eee eee ean $ 


Macro Library name Macros defined 
~$255$DUA2B: (SYSLIBISTARLET .MLB; 2 mew i, Ws 
195 GETS were required to define 14 macros. 

There were no errors, warnings or information messages. 


MACRO/DISABLE=TRACE/LIS=LIS$:LASWEEP/OBJ=OBJ$:LASWEEP MSRC$:LADEF /UPDATE=(ENH$:LADEF ) +*MSRC$:LASWEEP/UPDATE=(ENHS$:LASWEEP) 
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